﻿Imports PTIC_Util.GestionCalculs
Imports PTIC_Util
Namespace moteurTauxGaranti2

    Partial Public Class Moteur_Methode2
        Private Class FonctionProjGen1Detaillee
            Inherits FonctionCalculIndividuelle
            Public Sub New(ByVal Fonction As TypeFonctionCalcul)
                MyBase.New(TypeRecalcul.SurOrdre, Fonction)
            End Sub
            Public Overrides Sub invalider()
                Me.ModeRecalcul = TypeRecalcul.SurOrdre
                MyBase.Invalider()
            End Sub
        End Class
    End Class

End Namespace